local({
## Compute
.GlobalEnv$women.backup <- women.backup[order (-xtfrm (women.backup[["height"]])),]
})
